home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / qbsnip.zip / QUAZAR.BAS < prev    next >
BASIC Source File  |  1996-12-15  |  368b  |  19 lines
  1. 'Quazar Sound Effect
  2. 'by Andrew K. Dart
  3.  
  4. Quazar
  5.  
  6. SUB Quazar()
  7. PLAY "MF T255 L64 "
  8. FOR x = 1 TO 84
  9.   PLAY "N" + STR$(x)
  10.   IF x < 75 THEN PLAY "N" + STR$(x + 10)
  11.   IF x < 65 THEN PLAY "N" + STR$(x + 20)
  12. NEXT x
  13. FOR x = 83 TO 1 STEP -1
  14.   PLAY "N" + STR$(x)
  15.   IF x < 75 THEN PLAY "N" + STR$(x + 10)
  16.   IF x < 65 THEN PLAY "N" + STR$(x + 20)
  17. NEXT x
  18. END SUB
  19.